home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 016 / herc.arc / GCLS.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-03-16  |  663 b   |  38 lines
  1. ; C CALLABLE GRAPHICS CLEAR SCREEN
  2.  
  3.         name    gcls
  4. public  _gcls
  5.  
  6. DGROUP  group   _DATA
  7.         assume  ds:DGROUP
  8.  
  9. _DATA   segment word    public  'DATA'
  10. _DATA   ends
  11.  
  12.  
  13. _TEXT   segment byte    public  'CODE'
  14.         assume  cs:_TEXT
  15.  
  16. _gcls   proc    near
  17.         push    bp
  18.         mov     bp, sp
  19.         push    es
  20.         push    di
  21.         mov     ax, 0b800h
  22.         mov     es, ax
  23.         mov     cx, 4000h
  24.         mov     ax, 0
  25.         mov     di, 0
  26.         cld
  27.         rep     stosw
  28.         pop     di
  29.         pop     es
  30.         mov     sp,bp
  31.         pop     bp
  32.         ret
  33. _gcls   endp
  34.  
  35. _TEXT   ends
  36.         end
  37.  
  38.